home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / e / amigae21b.lha / Amiga_E_v2.1b / Sources / Examples / Shell.e < prev    next >
Text File  |  1992-09-02  |  446b  |  16 lines
  1. /* TurboShell in Amiga E. note that we use our own CON: */
  2.  
  3. PROC main()
  4.   DEF inputstring[80]:STRING, con
  5.   IF con:=Open('con:10/10/400/100/TurboShell v0.1',NEWFILE)
  6.     Write(con,'Shell by $#%! in 1991. "BYE" to stop.\n',STRLEN)
  7.     WHILE StrCmp(inputstring,'BYE',ALL)=FALSE
  8.       Execute(inputstring,0,con)
  9.       Write(con,'Turbo> ',STRLEN)
  10.       ReadStr(con,inputstring)
  11.       UpperStr(inputstring)
  12.     ENDWHILE
  13.     Close(con)
  14.   ENDIF
  15. ENDPROC
  16.